C USE THIS TO REBUILD .SCR FILES IF THEY HAVE BEEN EDITED AND MIXSCR FAILS.
C ***** LOAD WITH RENAM.FAI **********
	DIMENSION I(144)
1	FORMAT(' INPUT FILE NAME.EXT = '$)
2	FORMAT(' OUTPUT FILE NAME (NO EXTENSION) = '$)
3	FORMAT(144A1)
4	FORMAT(A5)
5	FORMAT(A10)
	DOUBLE PRECISION NAM
	TYPE 1
	ACCEPT 5,NAM
	TYPE 2
	ACCEPT 4,N
	CALL DEFINE(1,0,NO,NAM)
	CALL OFILE(22,N)
6	READ(1,3,END=100)I
	DO 7 K=144,1,-1
7	IF(I(K).NE.' ')GO TO 9
9	WRITE(22,3)(I(L),L=1,K)
	GO TO 6
100	END FILE 22
	CALL RENAM(N,'DAT',N,'SCR')
	TYPE 8,N
8	FORMAT(1XA5,'.SCR  WAS WRITTEN')
	END